home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / gfx / misc / easyprint.lha / EasyPrint / Install < prev    next >
Text File  |  1996-04-29  |  3KB  |  107 lines
  1. ;
  2. ; Script di installazione per EasyPrint 2.0 (9 apr 1996)
  3. ;
  4.  
  5. ; Stringhe
  6.  
  7. (set @default-dest  "")
  8. (set @default-message "")
  9. (set lib-def-dest   "LIBS:")
  10. (set font-dest      "FONTS:")
  11. (set eprint-dest    "SYS:")
  12.  
  13. ; E' un Amiga 3.0?
  14.  
  15. (if (< (/ (getversion) 65536) 39) (abort "Devi avere il Kickstart 3.0 (o superiore) per usare\nEasyPrint."))
  16.  
  17. (message
  18.         (cat      "\n\n\nEasyPrint, script di installazione.\n"
  19.                   "Questa procedura installa EasyPrint sul vostro Amiga.\n\n"
  20.                   "(C) Copyright 1995-1996 Andrea Latina."
  21.         ))
  22.  
  23. ; Ask where to copy the library.
  24.  
  25. (set lib-dest
  26.         (askdir
  27.                 (prompt  "Dove desideri vengano copiate le librerie?")
  28.                 (help    "    Se usi una directory per le librerie create da terzi, adesso puoi specificarla.")
  29.                 (default lib-def-dest)
  30.         )
  31. )
  32.  
  33. ; Copy the library.
  34.  
  35. (copylib
  36.         (prompt (cat "Copio la reqtools.library in " (tackon lib-dest "reqtools.library")))
  37.         (help   @copylib-help)
  38.         (source "libs/reqtools.library")
  39.         (dest   lib-dest)
  40.         (confirm)
  41. )
  42.  
  43. (copylib
  44.         (prompt (cat "Copio la iff.library in " (tackon lib-dest "iff.library")))
  45.         (help   @copylib-help)
  46.         (source "libs/iff.library")
  47.         (dest   lib-dest)
  48.         (confirm)
  49. )
  50.  
  51. (set font-dest
  52.         (askdir
  53.                 (prompt  "Dove desideri venga copiato il font courier?")
  54.                 (help    "    Se per i fonts usi  una  directory  diversa  da quella di Sistema, puoi specificarla adesso.")
  55.                 (default font-dest)
  56.         )
  57. )
  58.  
  59. (if (NOT (exists (tackon font-dest "courier.font")))
  60.     (copyfiles
  61.         (prompt "Copio il font 'courier' in " font-dest)
  62.         (source "fonts/")
  63.         (dest   font-dest)
  64.         (all)
  65.     )
  66. )
  67.  
  68. (set eprint-dest
  69.         (askdir
  70.                 (prompt  "Dove desideri installare EasyPrint (verrà creato un nuovo cassetto chiamato 'EasyPrint')?")
  71.                 (help    "    Seleziona il cassetto in cui installare EastPrint.")
  72.                 (default eprint-dest)
  73.         )
  74. )
  75.  
  76. (if (NOT (exists (tackon eprint-dest "EasyPrint")))
  77.     (makedir (tackon eprint-dest "EasyPrint")))
  78.  
  79. (copyfiles
  80.     (prompt "Copio 'EasyPrint' in " eprint-dest "EasyPrint/...")
  81.     (source "EasyPrint/")
  82.     (dest   (tackon eprint-dest "EasyPrint"))
  83.     (all)
  84. )
  85.  
  86. (copyfiles
  87.     (prompt "Copio 'EasyPrint' in " eprint-dest "EasyPrint/...")
  88.     (source "EasyPrint.guide")
  89.     (dest   (tackon eprint-dest "EasyPrint"))
  90. )
  91.  
  92. (copyfiles
  93.     (prompt "Copio 'EasyPrint' in " eprint-dest "EasyPrint/...")
  94.     (source "EasyPrint_ITA.guide")
  95.     (dest   (tackon eprint-dest "EasyPrint"))
  96. )
  97.  
  98. (if (exists ("env:sys/def_drawer.info"))
  99.     (copyfiles
  100.         (prompt "Copio 'EasyPrint' in " eprint-dest "EasyPrint/...")
  101.         (source "env:sys/def_drawer.info")
  102.         (dest   eprint-dest)
  103.         (newname "EasyPrint.info")
  104.     )
  105. )
  106.  
  107.